/ Software of the Month Club 1999 November / SOTMC_Nov1999-Ultimate.iso / mac / REALbasic ƒ / Examples / Applications / Columbo ƒ / Drag & resize rects

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0b 09 00 00 41 41 41 41 | 41 41 41 41 41 41 41 41 |....AAAA|AAAAAAAA|
|00000010| 41 41 41 41 01 04 3f 3f | 3f 3f 00 00 01 01 00 00 |AAAA..??|??......|
|00000020| 07 41 70 70 4e 61 6d 65 | 80 80 80 01 80 80 80 01 |.AppName|........|
|00000030| 01 00 00 00 00 00 00 00 | 06 69 63 73 23 80 01 01 |........|.ics#...|
|00000040| 80 06 60 08 10 08 90 08 | 10 0c b0 33 4c 20 84 22 |..`.....|...3L ."|
|00000050| 14 60 86 a2 17 99 9f 66 | 7e 18 78 06 e0 01 80 01 |.`.....f|~.x.....|
|00000060| 80 07 e0 0f f0 0f f0 0f | f0 0f f0 3f fc 3f fc 3f |........|...?.?.?|
|00000070| fc 7f fe ff ff ff ff 7f | fe 1f f8 07 e0 01 80 49 |........|.......I|
|00000080| 43 4e 23 80 04 00 01 80 | 00 00 06 60 00 00 18 18 |CN#.....|...`....|
|00000090| 00 00 60 06 00 00 48 0a | 00 00 42 22 00 00 40 8a |..`...H.|..B"..@.|
|000000a0| 00 00 40 22 00 00 40 8a | 00 00 40 22 00 00 40 8a |..@"..@.|..@"..@.|
|000000b0| 00 00 60 26 00 01 98 99 | 80 06 06 60 60 18 01 80 |..`&....|...``...|
|000000c0| 18 12 02 20 28 10 88 88 | 88 10 22 02 28 30 08 80 |... (...|..".(0..|
|000000d0| 8c 70 22 02 2a 90 08 80 | 8d b0 22 02 2b 98 09 80 |.p".*...|..".+...|
|000000e0| 99 a6 26 62 67 69 98 19 | 9e 1a 60 06 78 06 80 01 |..&bgi..|..`.x...|
|000000f0| e0 01 a0 07 80 00 68 1e | 00 00 1a 78 00 00 06 e0 |......h.|...x....|
|00000100| 00 00 01 80 00 00 01 80 | 00 00 07 e0 00 00 1f f8 |........|........|
|00000110| 00 00 7f fe 00 00 7f fe | 00 00 7f fe 00 00 7f fe |........|........|
|00000120| 00 00 7f fe 00 00 7f fe | 00 00 7f fe 00 00 7f fe |........|........|
|00000130| 00 00 7f fe 00 01 ff ff | 80 07 ff ff e0 1f ff ff |........|........|
|00000140| f8 1f ff ff f8 1f ff ff | f8 1f ff ff f8 3f ff ff |........|.....?..|
|00000150| fc 7f ff ff fe ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000160| ff ff ff ff ff 7f ff ff | fe 1f ff ff f8 07 ff ff |........|........|
|00000170| e0 01 ff ff 80 00 7f fe | 00 00 1f f8 00 00 07 e0 |........|........|
|00000180| 00 00 01 80 00 69 63 73 | 34 80 02 00 00 00 0f f0 |.....ics|4.......|
|00000190| 00 00 00 00 00 0f f8 8f | f0 00 00 00 00 f8 88 88 |........|........|
|000001a0| 9f 00 00 00 00 f8 88 99 | 9f 00 00 00 00 f8 88 99 |........|........|
|000001b0| 9f 00 00 00 00 f8 88 99 | 9f 00 00 00 ff cc 88 99 |........|........|
|000001c0| 11 ff 00 00 fc cc cc 11 | 11 1f 00 00 fc c3 73 21 |........|......s!|
|000001d0| 22 2f 00 0f fc c7 37 12 | 12 2f f0 fc fc c3 73 21 |"/....7.|./....s!|
|000001e0| 22 2f df f0 cf f7 3f f2 | 1f fd df 0f f0 cf fc cf |"/....?.|........|
|000001f0| fd df f0 00 0f f0 cc cd | df f0 00 00 00 0f f0 df |........|........|
|00000200| f0 00 00 00 00 00 0f f0 | 00 00 00 69 63 73 38 80 |........|...ics8.|
|00000210| 04 00 00 00 00 00 00 00 | ff ff 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 ff ff | e1 e1 ff ff 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 ff e3 e1 | e1 e1 e1 e5 ff 00 00 00 |........|........|
|00000240| 00 00 00 00 00 ff e3 e3 | e3 e5 e5 e5 ff 00 00 00 |........|........|
|00000250| 00 00 00 00 00 ff e3 e3 | e3 e5 e5 e5 ff 00 00 00 |........|........|
|00000260| 00 00 00 00 00 ff e3 e3 | e3 e5 e5 e5 ff 00 00 00 |........|........|
|00000270| 00 00 00 ff ff 2a 2a e3 | e3 e5 e5 0b 0b ff ff 00 |.....**.|........|
|00000280| 00 00 00 ff 2a 2a 2a 2a | 2a 0b 0b 0b 0b 0b ff 00 |....****|*.......|
|00000290| 00 00 00 ff 54 54 7f 7f | 7f 11 11 11 17 17 ff 00 |....TT..|........|
|000002a0| 00 00 ff ff 54 54 7f 7f | 7f 11 11 11 17 17 ff ff |....TT..|........|
|000002b0| 00 ff f6 ff 54 54 7f 7f | 7f 11 11 11 17 17 ff f9 |....TT..|........|
|000002c0| ff ff f6 f6 ff ff 7f 7f | ff ff 11 11 ff ff f9 f9 |........|........|
|000002d0| ff 00 ff ff f6 f6 ff ff | f7 f7 ff ff f9 f9 ff ff |........|........|
|000002e0| 00 00 00 00 ff ff f6 f6 | f7 f7 f9 f9 ff ff 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 ff ff | f6 f9 ff ff 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | ff ff 00 00 00 00 00 00 |........|........|
|00000310| 00 69 63 6c 34 80 08 00 | 00 00 00 00 00 00 0f f0 |.icl4...|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 0f f8 8f |........|........|
|00000330| f0 00 00 00 00 00 00 00 | 00 00 00 00 0f f8 88 88 |........|........|
|00000340| 8f f0 00 00 00 00 00 00 | 00 00 00 0f f8 88 88 88 |........|........|
|00000350| 88 8f f0 00 00 00 00 00 | 00 00 00 0f 88 08 88 88 |........|........|
|00000360| 88 89 f0 00 00 00 00 00 | 00 00 00 0f 88 88 08 88 |........|........|
|00000370| 89 99 f0 00 00 00 00 00 | 00 00 00 0f 88 88 88 09 |........|........|
|00000380| 99 99 f0 00 00 00 00 00 | 00 00 00 0f 88 88 88 99 |........|........|
|00000390| 99 99 f0 00 00 00 00 00 | 00 00 00 0f 88 88 88 89 |........|........|
|000003a0| 99 99 f0 00 00 00 00 00 | 00 00 00 0f 88 88 88 99 |........|........|
|000003b0| 99 99 f0 00 00 00 00 00 | 00 00 00 0f 88 88 88 89 |........|........|
|000003c0| 99 99 f0 00 00 00 00 00 | 00 00 00 0f 88 88 88 99 |........|........|
|000003d0| 99 99 f0 00 00 00 00 00 | 00 00 0f fc c8 88 88 89 |........|........|
|000003e0| 99 91 1f f0 00 00 00 00 | 00 0f fc cc cc c8 88 99 |........|........|
|000003f0| 91 11 11 1f f0 00 00 00 | 0f fc cc cc cc cc cc 71 |........|.......q|
|00000400| 11 11 11 11 1f f0 00 00 | 0f cc 0c cc cc cc 37 22 |........|......7"|
|00000410| 01 11 11 11 12 f0 00 00 | 0f cc cc 0c cc 73 73 71 |........|.....ssq|
|00000420| 21 01 11 12 22 f0 00 00 | 0f cc cc cc 07 37 37 22 |!..."...|.....77"|
|00000430| 12 12 02 22 22 f0 00 00 | ff cc cc cc 73 73 73 71 |...""...|....sssq|
|00000440| 21 21 22 22 22 ff 00 0f | 0f cc cc cc c7 37 37 22 |!!"""...|.....77"|
|00000450| 12 12 12 22 22 fd f0 f0 | cf cc cc cc 73 73 73 71 |...""...|....sssq|
|00000460| 21 21 22 22 22 fc df fc | cf cc cc cc c7 37 37 22 |!!"""...|.....77"|
|00000470| 12 12 12 22 22 fc cf fc | 0f fc cc cc 73 73 7f f1 |...""...|....ss..|
|00000480| 21 21 22 22 2f fc df fc | cc 0f fc cc c7 3f fd df |!!""/...|.....?..|
|00000490| f2 12 12 2f fc dd df 0f | fc cc 0f fc 7f fd dd dc |.../....|........|
|000004a0| cf f1 2f fc dd df f0 00 | 0f fc cc 0f fd dd cc cc |../.....|........|
|000004b0| cc cf fc dd df f0 00 00 | 00 0f fc cc 00 cc cc cc |........|........|
|000004c0| cc cc dd df f0 00 00 00 | 00 00 0f fc cc 00 cc cc |........|........|
|000004d0| cc dd df f0 00 00 00 00 | 00 00 00 0f fc cc 00 cc |........|........|
|000004e0| dd df f0 00 00 00 00 00 | 00 00 00 00 0f fc cc dd |........|........|
|000004f0| df f0 00 00 00 00 00 00 | 00 00 00 00 00 0f fc df |........|........|
|00000500| f0 00 00 00 00 00 00 00 | 00 00 00 00 00 00 0f f0 |........|........|
|00000510| 00 00 00 00 00 00 00 69 | 63 6c 38 80 10 00 00 00 |.......i|cl8.....|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 ff ff 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 ff ff e1 e1 ff ff |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | ff ff e1 e1 e1 e1 e1 e1 |........|........|
|00000570| ff ff 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 ff ff | e1 e1 e1 e1 e1 e1 e1 e1 |........|........|
|00000590| e1 e1 ff ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 ff e3 | e3 00 e1 e1 e1 e1 e1 e1 |........|........|
|000005b0| e1 e3 e5 ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 ff e3 | e3 e3 e3 00 e1 e1 e1 e3 |........|........|
|000005d0| e5 e5 e5 ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 ff e3 | e3 e3 e3 e3 e3 00 e5 e5 |........|........|
|000005f0| e5 e5 e5 ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 ff e3 | e3 e3 e3 e3 e3 e5 e5 e5 |........|........|
|00000610| e5 e5 e5 ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 ff e3 | e3 e3 e3 e3 e3 e3 e5 e5 |........|........|
|00000630| e5 e5 e5 ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 ff e3 | e3 e3 e3 e3 e3 e5 e5 e5 |........|........|
|00000650| e5 e5 e5 ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 ff e3 | e3 e3 e3 e3 e3 e3 e5 e5 |........|........|
|00000670| e5 e5 e5 ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 00 00 00 ff e3 | e3 e3 e3 e3 e3 e5 e5 e5 |........|........|
|00000690| e5 e5 e5 ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 ff ff 2a 2a | e3 e3 e3 e3 e3 e3 e5 e5 |......**|........|
|000006b0| e5 e5 0b 0b ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 ff ff 2a 2a 2a 2a | 2a 2a e3 e3 e3 e5 e5 e5 |....****|**......|
|000006d0| 0b 0b 0b 0b 0b 0b ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| ff ff 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 54 0b 0b |..******|*****T..|
|000006f0| 0b 0b 0b 0b 0b 0b 0b 0b | ff ff 00 00 00 00 00 00 |........|........|
|00000700| ff 54 54 00 2a 2a 2a 2a | 2a 2a 2a 54 7f 11 11 00 |.TT.****|***T....|
|00000710| 0b 0b 0b 0b 0b 0b 0b 11 | 17 ff 00 00 00 00 00 00 |........|........|
|00000720| ff 54 54 54 54 00 2a 2a | 2a 54 7f 7f 7f 7f 11 11 |.TTTT.**|*T......|
|00000730| 11 00 0b 0b 0b 11 17 17 | 17 ff 00 00 00 00 00 00 |........|........|
|00000740| ff 54 54 54 54 54 54 00 | 7f 7f 7f 7f 7f 11 11 11 |.TTTTTT.|........|
|00000750| 11 11 11 00 17 17 17 17 | 17 ff 00 00 00 00 00 ff |........|........|
|00000760| ff 54 54 54 54 54 54 7f | 7f 7f 7f 7f 7f 7f 11 11 |.TTTTTT.|........|
|00000770| 11 11 11 17 17 17 17 17 | 17 ff ff 00 00 00 ff 00 |........|........|
|00000780| ff 54 54 54 54 54 54 54 | 7f 7f 7f 7f 7f 11 11 11 |.TTTTTTT|........|
|00000790| 11 11 11 11 17 17 17 17 | 17 ff f9 ff 00 ff 00 f7 |........|........|
|000007a0| ff 54 54 54 54 54 54 7f | 7f 7f 7f 7f 7f 7f 11 11 |.TTTTTT.|........|
|000007b0| 11 11 11 17 17 17 17 17 | 17 ff f7 f9 ff ff f7 f7 |........|........|
|000007c0| ff 54 54 54 54 54 54 54 | 7f 7f 7f 7f 7f 11 11 11 |.TTTTTTT|........|
|000007d0| 11 11 11 11 17 17 17 17 | 17 ff f7 f7 ff ff f7 00 |........|........|
|000007e0| ff ff 54 54 54 54 54 7f | 7f 7f 7f 7f ff ff 11 11 |..TTTTT.|........|
|000007f0| 11 11 11 17 17 17 17 17 | ff ff f7 f9 ff ff f7 f7 |........|........|
|00000800| f7 00 ff ff 54 54 54 54 | 7f 7f ff ff f9 f9 ff ff |....TTTT|........|
|00000810| 11 11 11 11 17 17 ff ff | f7 f9 f9 f9 ff 00 ff ff |........|........|
|00000820| f7 f7 f7 00 ff ff 54 7f | ff ff f9 f9 f9 f9 f7 f6 |......T.|........|
|00000830| ff ff 11 17 ff ff f7 f9 | f9 f9 ff ff 00 00 00 00 |........|........|
|00000840| ff ff f7 f7 f7 00 ff ff | f9 f9 f9 f7 f6 f6 f6 f6 |........|........|
|00000850| f6 f6 ff ff f7 f9 f9 f9 | ff ff 00 00 00 00 00 00 |........|........|
|00000860| 00 00 ff ff f7 f7 f7 00 | 00 f6 f6 f6 f6 f6 f6 f6 |........|........|
|00000870| f6 f7 f7 f9 f9 f9 ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 00 00 ff ff f7 f7 | f7 00 00 f6 f6 f6 f6 f7 |........|........|
|00000890| f7 f9 f9 f9 ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008a0| 00 00 00 00 00 00 ff ff | f7 f7 f7 00 00 f7 f7 f9 |........|........|
|000008b0| f9 f9 ff ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | ff ff f7 f7 f7 f9 f9 f9 |........|........|
|000008d0| ff ff 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 ff ff f7 f9 ff ff |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000900| 00 00 00 00 00 00 00 00 | 00 00 00 00 ff ff 00 00 |........|........|
|00000910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 04 74 |........|.......t|
|00000920| 65 78 74 04 52 2a 63 68 | 04 54 45 58 54 00 00 01 |ext.R*ch|.TEXT...|
|00000930| 41 04 56 69 65 77 01 77 | 04 89 03 b1 02 12 04 4e |A.View.w|.......N|
|00000940| 61 6d 65 01 77 05 46 72 | 61 6d 65 01 30 0c 48 61 |ame.w.Fr|ame.0.Ha|
|00000950| 73 42 61 63 6b 43 6f 6c | 6f 72 05 46 61 6c 73 65 |sBackCol|or.False|
|00000960| 09 42 61 63 6b 43 6f 6c | 6f 72 08 31 36 37 37 37 |.BackCol|or.16777|
|00000970| 32 31 35 08 42 61 63 6b | 64 72 6f 70 01 30 05 54 |215.Back|drop.0.T|
|00000980| 69 74 6c 65 13 44 72 61 | 67 20 26 20 52 65 73 69 |itle.Dra|g & Resi|
|00000990| 7a 65 20 52 65 63 74 73 | 07 56 69 73 69 62 6c 65 |ze Rects|.Visible|
|000009a0| 04 54 72 75 65 08 43 6c | 6f 73 65 42 6f 78 04 54 |.True.Cl|oseBox.T|
|000009b0| 72 75 65 08 47 72 6f 77 | 49 63 6f 6e 05 46 61 6c |rue.Grow|Icon.Fal|
|000009c0| 73 65 08 5a 6f 6f 6d 49 | 63 6f 6e 05 46 61 6c 73 |se.ZoomI|con.Fals|
|000009d0| 65 0b 42 61 6c 6c 6f 6f | 6e 48 65 6c 70 00 09 50 |e.Balloo|nHelp..P|
|000009e0| 6c 61 63 65 6d 65 6e 74 | 01 30 05 57 69 64 74 68 |lacement|.0.Width|
|000009f0| 03 33 30 30 06 48 65 69 | 67 68 74 03 33 30 30 08 |.300.Hei|ght.300.|
|00000a00| 4d 69 6e 57 69 64 74 68 | 02 36 34 09 4d 69 6e 48 |MinWidth|.64.MinH|
|00000a10| 65 69 67 68 74 02 36 34 | 08 4d 61 78 57 69 64 74 |eight.64|.MaxWidt|
|00000a20| 68 05 33 32 30 30 30 09 | 4d 61 78 48 65 69 67 68 |h.32000.|MaxHeigh|
|00000a30| 74 05 33 32 30 30 30 07 | 00 01 77 b0 01 06 41 70 |t.32000.|..w...Ap|
|00000a40| 70 6c 65 74 00 01 0f 53 | 65 6c 52 20 61 73 20 69 |plet...S|elR as i|
|00000a50| 6e 74 65 67 65 72 00 00 | 00 06 0a 44 72 6f 70 4f |nteger..|...DropO|
|00000a60| 62 6a 65 63 74 04 08 04 | 08 06 1f 53 75 62 20 44 |bject...|...Sub D|
|00000a70| 72 6f 70 4f 62 6a 65 63 | 74 28 6f 62 6a 20 41 73 |ropObjec|t(obj As|
|00000a80| 20 44 72 61 67 49 74 65 | 6d 29 10 64 69 6d 20 61 | DragIte|m).dim a|
|00000a90| 20 61 73 20 69 6e 74 65 | 67 65 72 21 61 3d 76 61 | as inte|ger!a=va|
|00000aa0| 6c 28 6f 62 6a 2e 70 72 | 69 76 61 74 65 6d 61 63 |l(obj.pr|ivatemac|
|00000ab0| 64 61 74 61 28 22 64 72 | 65 63 22 29 29 1c 63 28 |data("dr|ec")).c(|
|00000ac0| 61 29 2e 74 6f 70 3d 47 | 65 74 4d 6f 75 73 65 59 |a).top=G|etMouseY|
|00000ad0| 2d 63 28 61 29 2e 64 69 | 66 79 1d 63 28 61 29 2e |-c(a).di|fy.c(a).|
|00000ae0| 6c 65 66 74 3d 47 65 74 | 4d 6f 75 73 65 58 2d 63 |left=Get|MouseX-c|
|00000af0| 28 61 29 2e 64 69 66 78 | 07 45 6e 64 20 53 75 62 |(a).difx|.End Sub|
|00000b00| 09 4d 6f 75 73 65 44 6f | 77 6e 02 0a 02 0a 06 39 |.MouseDo|wn.....9|
|00000b10| 46 75 6e 63 74 69 6f 6e | 20 4d 6f 75 73 65 44 6f |Function| MouseDo|
|00000b20| 77 6e 28 58 20 41 73 20 | 49 6e 74 65 67 65 72 2c |wn(X As |Integer,|
|00000b30| 20 59 20 41 73 20 49 6e | 74 65 67 65 72 29 20 41 | Y As In|teger) A|
|00000b40| 73 20 42 6f 6f 6c 65 61 | 6e 0d 69 66 20 77 64 3d |s Boolea|n.if wd=|
|00000b50| 2d 31 20 74 68 65 6e 0a | 6d 65 2e 73 65 6c 52 3d |-1 then.|me.selR=|
|00000b60| 2d 31 0a 6d 65 2e 72 65 | 66 72 65 73 68 06 65 6e |-1.me.re|fresh.en|
|00000b70| 64 20 69 66 0c 45 6e 64 | 20 46 75 6e 63 74 69 6f |d if.End| Functio|
|00000b80| 6e 07 4b 65 79 44 6f 77 | 6e 0d 06 0d 06 0f 2a 46 |n.KeyDow|n.....*F|
|00000b90| 75 6e 63 74 69 6f 6e 20 | 4b 65 79 44 6f 77 6e 28 |unction |KeyDown(|
|00000ba0| 4b 65 79 20 41 73 20 53 | 74 72 69 6e 67 29 20 41 |Key As S|tring) A|
|00000bb0| 73 20 42 6f 6f 6c 65 61 | 6e 22 69 66 20 61 73 63 |s Boolea|n"if asc|
|00000bc0| 28 4b 65 79 29 3d 38 20 | 6f 72 20 61 73 63 28 4b |(Key)=8 |or asc(K|
|00000bd0| 65 79 29 3d 31 32 37 20 | 74 68 65 6e 10 69 66 20 |ey)=127 |then.if |
|00000be0| 53 65 6c 52 3c 3e 2d 31 | 20 74 68 65 6e 15 63 28 |SelR<>-1| then.c(|
|00000bf0| 53 65 6c 52 29 2e 76 69 | 73 69 62 6c 65 3d 66 61 |SelR).vi|sible=fa|
|00000c00| 6c 73 65 06 65 6e 64 20 | 69 66 17 65 6c 73 65 69 |lse.end |if.elsei|
|00000c10| 66 20 61 73 63 28 4b 65 | 79 29 3d 32 38 20 74 68 |f asc(Ke|y)=28 th|
|00000c20| 65 6e 1b 63 28 53 65 6c | 52 29 2e 6c 65 66 74 3d |en.c(Sel|R).left=|
|00000c30| 63 28 53 65 6c 52 29 2e | 6c 65 66 74 2d 31 17 65 |c(SelR).|left-1.e|
|00000c40| 6c 73 65 69 66 20 61 73 | 63 28 4b 65 79 29 3d 32 |lseif as|c(Key)=2|
|00000c50| 39 20 74 68 65 6e 1b 63 | 28 53 65 6c 52 29 2e 6c |9 then.c|(SelR).l|
|00000c60| 65 66 74 3d 63 28 53 65 | 6c 52 29 2e 6c 65 66 74 |eft=c(Se|lR).left|
|00000c70| 2b 31 17 65 6c 73 65 69 | 66 20 61 73 63 28 4b 65 |+1.elsei|f asc(Ke|
|00000c80| 79 29 3d 33 30 20 74 68 | 65 6e 19 63 28 53 65 6c |y)=30 th|en.c(Sel|
|00000c90| 52 29 2e 74 6f 70 3d 63 | 28 53 65 6c 52 29 2e 74 |R).top=c|(SelR).t|
|00000ca0| 6f 70 2d 31 17 65 6c 73 | 65 69 66 20 61 73 63 28 |op-1.els|eif asc(|
|00000cb0| 4b 65 79 29 3d 33 31 20 | 74 68 65 6e 19 63 28 53 |Key)=31 |then.c(S|
|00000cc0| 65 6c 52 29 2e 74 6f 70 | 3d 63 28 53 65 6c 52 29 |elR).top|=c(SelR)|
|00000cd0| 2e 74 6f 70 2b 31 06 65 | 6e 64 20 69 66 0c 45 6e |.top+1.e|nd if.En|
|00000ce0| 64 20 46 75 6e 63 74 69 | 6f 6e 05 43 6c 6f 73 65 |d Functi|on.Close|
|00000cf0| 01 04 01 04 03 0b 53 75 | 62 20 43 6c 6f 73 65 28 |......Su|b Close(|
|00000d00| 29 04 71 75 69 74 07 45 | 6e 64 20 53 75 62 04 4f |).quit.E|nd Sub.O|
|00000d10| 70 65 6e 03 1c 03 1c 05 | 0a 53 75 62 20 4f 70 65 |pen.....|.Sub Ope|
|00000d20| 6e 28 29 0c 6d 65 2e 53 | 65 6c 52 20 3d 20 2d 31 |n().me.S|elR = -1|
|00000d30| 05 77 64 3d 2d 31 1c 6d | 65 2e 61 63 63 65 70 74 |.wd=-1.m|e.accept|
|00000d40| 6d 61 63 64 61 74 61 64 | 72 6f 70 28 22 64 72 65 |macdatad|rop("dre|
|00000d50| 63 22 29 07 45 6e 64 20 | 53 75 62 0f 45 6e 61 62 |c").End |Sub.Enab|
|00000d60| 6c 65 4d 65 6e 75 49 74 | 65 6d 73 02 09 02 09 05 |leMenuIt|ems.....|
|00000d70| 15 53 75 62 20 45 6e 61 | 62 6c 65 4d 65 6e 75 49 |.Sub Ena|bleMenuI|
|00000d80| 74 65 6d 73 28 29 17 61 | 70 70 6c 65 61 62 6f 75 |tems().a|ppleabou|
|00000d90| 74 2e 65 6e 61 62 6c 65 | 64 3d 74 72 75 65 16 4e |t.enable|d=true.N|
|00000da0| 65 77 4f 62 6a 65 63 74 | 2e 65 6e 61 62 6c 65 64 |ewObject|.enabled|
|00000db0| 3d 74 72 75 65 1c 45 64 | 69 74 4d 6f 76 65 74 6f |=true.Ed|itMoveto|
|00000dc0| 66 72 6f 6e 74 2e 65 6e | 61 62 6c 65 64 3d 74 72 |front.en|abled=tr|
|00000dd0| 75 65 07 45 6e 64 20 53 | 75 62 04 0a 41 70 70 6c |ue.End S|ub..Appl|
|00000de0| 65 41 62 6f 75 74 01 0d | 01 0d 03 1a 46 75 6e 63 |eAbout..|....Func|
|00000df0| 74 69 6f 6e 20 41 63 74 | 69 6f 6e 20 41 73 20 42 |tion Act|ion As B|
|00000e00| 6f 6f 6c 65 61 6e 0d 61 | 62 6f 75 74 62 6f 78 2e |oolean.a|boutbox.|
|00000e10| 73 68 6f 77 0c 45 6e 64 | 20 46 75 6e 63 74 69 6f |show.End| Functio|
|00000e20| 6e 09 45 64 69 74 43 6c | 65 61 72 03 06 03 06 05 |n.EditCl|ear.....|
|00000e30| 1a 46 75 6e 63 74 69 6f | 6e 20 41 63 74 69 6f 6e |.Functio|n Action|
|00000e40| 20 41 73 20 42 6f 6f 6c | 65 61 6e 10 69 66 20 53 | As Bool|ean.if S|
|00000e50| 65 6c 52 3c 3e 2d 31 20 | 74 68 65 6e 15 63 28 53 |elR<>-1 |then.c(S|
|00000e60| 65 6c 52 29 2e 76 69 73 | 69 62 6c 65 3d 66 61 6c |elR).vis|ible=fal|
|00000e70| 73 65 06 65 6e 64 20 69 | 66 0c 45 6e 64 20 46 75 |se.end i|f.End Fu|
|00000e80| 6e 63 74 69 6f 6e 0f 45 | 64 69 74 4d 6f 76 65 74 |nction.E|ditMovet|
|00000e90| 6f 66 72 6f 6e 74 0c 06 | 0c 06 0e 1a 46 75 6e 63 |ofront..|....Func|
|00000ea0| 74 69 6f 6e 20 41 63 74 | 69 6f 6e 20 41 73 20 42 |tion Act|ion As B|
|00000eb0| 6f 6f 6c 65 61 6e 17 64 | 69 6d 20 61 20 61 73 20 |oolean.d|im a as |
|00000ec0| 63 2c 62 20 61 73 20 69 | 6e 74 65 67 65 72 12 69 |c,b as i|nteger.i|
|00000ed0| 66 20 53 65 6c 52 20 3c | 3e 20 2d 31 20 74 68 65 |f SelR <|> -1 the|
|00000ee0| 6e 07 61 3d 6e 65 77 20 | 63 13 61 2e 6c 65 66 74 |n.a=new |c.a.left|
|00000ef0| 3d 63 28 53 65 6c 52 29 | 2e 6c 65 66 74 11 61 2e |=c(SelR)|.left.a.|
|00000f00| 74 6f 70 3d 63 28 53 65 | 6c 52 29 2e 74 6f 70 17 |top=c(Se|lR).top.|
|00000f10| 61 2e 68 65 69 67 68 74 | 3d 63 28 53 65 6c 52 29 |a.height|=c(SelR)|
|00000f20| 2e 68 65 69 67 68 74 15 | 61 2e 77 69 64 74 68 3d |.height.|a.width=|
|00000f30| 63 28 53 65 6c 52 29 2e | 77 69 64 74 68 15 63 28 |c(SelR).|width.c(|
|00000f40| 53 65 6c 52 29 2e 76 69 | 73 69 62 6c 65 3d 66 61 |SelR).vi|sible=fa|
|00000f50| 6c 73 65 0c 53 65 6c 52 | 3d 61 2e 69 6e 64 65 78 |lse.SelR|=a.index|
|00000f60| 0e 61 2e 76 69 73 69 62 | 6c 65 3d 74 72 75 65 09 |.a.visib|le=true.|
|00000f70| 61 2e 72 65 66 72 65 73 | 68 06 65 6e 64 20 69 66 |a.refres|h.end if|
|00000f80| 0c 45 6e 64 20 46 75 6e | 63 74 69 6f 6e 09 4e 65 |.End Fun|ction.Ne|
|00000f90| 77 4f 62 6a 65 63 74 07 | 14 07 14 09 1a 46 75 6e |wObject.|.....Fun|
|00000fa0| 63 74 69 6f 6e 20 41 63 | 74 69 6f 6e 20 41 73 20 |ction Ac|tion As |
|00000fb0| 42 6f 6f 6c 65 61 6e 0a | 64 69 6d 20 61 20 61 73 |Boolean.|dim a as|
|00000fc0| 20 63 07 61 3d 6e 65 77 | 20 63 0e 61 2e 74 6f 70 | c.a=new| c.a.top|
|00000fd0| 3d 63 28 30 29 2e 74 6f | 70 10 61 2e 6c 65 66 74 |=c(0).to|p.a.left|
|00000fe0| 3d 63 28 30 29 2e 6c 65 | 66 74 0e 61 2e 76 69 73 |=c(0).le|ft.a.vis|
|00000ff0| 69 62 6c 65 3d 74 72 75 | 65 16 63 28 30 29 2e 6c |ible=tru|e.c(0).l|
|00001000| 65 66 74 3d 63 28 30 29 | 2e 6c 65 66 74 2b 31 30 |eft=c(0)|.left+10|
|00001010| 14 63 28 30 29 2e 74 6f | 70 3d 63 28 30 29 2e 74 |.c(0).to|p=c(0).t|
|00001020| 6f 70 2b 31 30 0c 45 6e | 64 20 46 75 6e 63 74 69 |op+10.En|d Functi|
|00001030| 6f 6e 00 01 07 00 00 b4 | 01 03 6f 62 6a 00 00 00 |on......|..obj...|
|00001040| 00 02 0b 44 6f 75 62 6c | 65 43 6c 69 63 6b 01 21 |...Doubl|eClick.!|
|00001050| 01 21 03 21 53 75 62 20 | 44 6f 75 62 6c 65 43 6c |.!.!Sub |DoubleCl|
|00001060| 69 63 6b 28 49 6e 64 65 | 78 20 41 73 20 49 6e 74 |ick(Inde|x As Int|
|00001070| 65 67 65 72 29 21 6d 73 | 67 42 6f 78 20 22 59 6f |eger)!ms|gBox "Yo|
|00001080| 75 20 68 61 76 65 20 64 | 6f 75 62 6c 65 2d 63 6c |u have d|ouble-cl|
|00001090| 69 63 6b 65 64 21 22 07 | 45 6e 64 20 53 75 62 05 |icked!".|End Sub.|
|000010a0| 50 61 69 6e 74 01 00 01 | 00 03 18 53 75 62 20 50 |Paint...|...Sub P|
|000010b0| 61 69 6e 74 28 67 20 41 | 73 20 47 72 61 70 68 69 |aint(g A|s Graphi|
|000010c0| 63 73 29 00 07 45 6e 64 | 20 53 75 62 00 00 01 06 |cs)..End| Sub....|
|000010d0| 43 61 6e 76 61 73 10 04 | 4e 61 6d 65 01 63 05 49 |Canvas..|Name.c.I|
|000010e0| 6e 64 65 78 01 30 0d 54 | 61 62 50 61 6e 65 6c 49 |ndex.0.T|abPanelI|
|000010f0| 6e 64 65 78 01 30 07 56 | 69 73 69 62 6c 65 05 46 |ndex.0.V|isible.F|
|00001100| 61 6c 73 65 04 4c 65 66 | 74 01 31 03 54 6f 70 01 |alse.Lef|t.1.Top.|
|00001110| 31 05 57 69 64 74 68 02 | 39 39 06 48 65 69 67 68 |1.Width.|99.Heigh|
|00001120| 74 02 36 38 0b 42 61 6c | 6c 6f 6f 6e 48 65 6c 70 |t.68.Bal|loonHelp|
|00001130| 00 13 44 69 73 61 62 6c | 65 64 42 61 6c 6c 6f 6f |..Disabl|edBalloo|
|00001140| 6e 48 65 6c 70 00 08 4c | 6f 63 6b 4c 65 66 74 05 |nHelp..L|ockLeft.|
|00001150| 46 61 6c 73 65 07 4c 6f | 63 6b 54 6f 70 05 46 61 |False.Lo|ckTop.Fa|
|00001160| 6c 73 65 09 4c 6f 63 6b | 52 69 67 68 74 05 46 61 |lse.Lock|Right.Fa|
|00001170| 6c 73 65 0a 4c 6f 63 6b | 42 6f 74 74 6f 6d 05 46 |lse.Lock|Bottom.F|
|00001180| 61 6c 73 65 08 42 61 63 | 6b 64 72 6f 70 01 30 07 |alse.Bac|kdrop.0.|
|00001190| 45 6e 61 62 6c 65 64 04 | 54 72 75 65 00 00 02 41 |Enabled.|True...A|
|000011a0| 04 4d 65 6e 75 04 4d 65 | 6e 75 05 a5 03 bd 01 91 |.Menu.Me|nu......|
|000011b0| 08 85 05 05 01 00 00 80 | 80 80 80 10 00 00 00 00 |........|........|
|000011c0| 00 07 00 00 88 01 08 4d | 65 6e 75 49 74 65 6d 00 |.......M|enuItem.|
|000011d0| 00 00 00 00 00 00 02 00 | 06 41 62 6f 75 74 c9 0a |........|.About..|
|000011e0| 41 70 70 6c 65 41 62 6f | 75 74 80 80 80 80 10 00 |AppleAbo|ut......|
|000011f0| 00 00 00 00 07 00 00 88 | 01 08 4d 65 6e 75 49 74 |........|..MenuIt|
|00001200| 65 6d 00 00 00 00 00 00 | 00 00 02 00 00 80 80 80 |em......|........|
|00001210| 80 10 00 00 00 00 00 07 | 00 00 88 01 08 4d 65 6e |........|.....Men|
|00001220| 75 49 74 65 6d 00 00 00 | 00 00 00 00 00 00 04 46 |uItem...|.......F|
|00001230| 69 6c 65 00 80 80 80 80 | 10 00 00 00 00 00 07 00 |ile.....|........|
|00001240| 00 88 01 08 4d 65 6e 75 | 49 74 65 6d 00 00 00 00 |....Menu|Item....|
|00001250| 00 00 00 02 00 04 51 75 | 69 74 08 46 69 6c 65 51 |......Qu|it.FileQ|
|00001260| 75 69 74 80 80 80 80 10 | 01 51 00 00 00 00 07 00 |uit.....|.Q......|
|00001270| 00 88 01 0c 51 75 69 74 | 4d 65 6e 75 49 74 65 6d |....Quit|MenuItem|
|00001280| 00 00 00 00 00 00 00 00 | 02 00 00 80 80 80 80 10 |........|........|
|00001290| 00 00 00 00 00 07 00 00 | 88 01 08 4d 65 6e 75 49 |........|...MenuI|
|000012a0| 74 65 6d 00 00 00 00 00 | 00 00 00 00 04 45 64 69 |tem.....|.....Edi|
|000012b0| 74 00 80 80 80 80 10 00 | 00 00 00 00 07 00 00 88 |t.......|........|
|000012c0| 01 08 4d 65 6e 75 49 74 | 65 6d 00 00 00 00 00 00 |..MenuIt|em......|
|000012d0| 00 07 00 03 43 75 74 07 | 45 64 69 74 43 75 74 80 |....Cut.|EditCut.|
|000012e0| 80 80 80 10 01 58 00 00 | 00 00 07 00 00 88 01 08 |.....X..|........|
|000012f0| 4d 65 6e 75 49 74 65 6d | 00 00 00 00 00 00 00 00 |MenuItem|........|
|00001300| 00 04 43 6f 70 79 08 45 | 64 69 74 43 6f 70 79 80 |..Copy.E|ditCopy.|
|00001310| 80 80 80 10 01 43 00 00 | 00 00 07 00 00 88 01 08 |.....C..|........|
|00001320| 4d 65 6e 75 49 74 65 6d | 00 00 00 00 00 00 00 00 |MenuItem|........|
|00001330| 00 05 50 61 73 74 65 09 | 45 64 69 74 50 61 73 74 |..Paste.|EditPast|
|00001340| 65 80 80 80 80 10 01 56 | 00 00 00 00 07 00 00 88 |e......V|........|
|00001350| 01 08 4d 65 6e 75 49 74 | 65 6d 00 00 00 00 00 00 |..MenuIt|em......|
|00001360| 00 00 00 05 43 6c 65 61 | 72 09 45 64 69 74 43 6c |....Clea|r.EditCl|
|00001370| 65 61 72 80 80 80 80 10 | 00 00 00 00 00 07 00 00 |ear.....|........|
|00001380| 88 01 08 4d 65 6e 75 49 | 74 65 6d 00 00 00 00 00 |...MenuI|tem.....|
|00001390| 00 00 00 00 01 2d 04 6c | 69 6e 65 80 80 80 80 10 |.....-.l|ine.....|
|000013a0| 00 00 00 00 00 07 00 00 | 88 01 08 4d 65 6e 75 49 |........|...MenuI|
|000013b0| 74 65 6d 00 00 00 00 00 | 00 00 00 00 0d 4d 6f 76 |tem.....|.....Mov|
|000013c0| 65 20 74 6f 20 66 72 6f | 6e 74 0f 45 64 69 74 4d |e to fro|nt.EditM|
|000013d0| 6f 76 65 74 6f 66 72 6f | 6e 74 80 80 80 80 10 01 |ovetofro|nt......|
|000013e0| 46 00 00 00 00 07 00 00 | 88 01 08 4d 65 6e 75 49 |F.......|...MenuI|
|000013f0| 74 65 6d 00 00 00 00 00 | 00 00 00 02 00 00 80 80 |tem.....|........|
|00001400| 80 80 10 00 00 00 00 00 | 07 00 00 88 01 08 4d 65 |........|......Me|
|00001410| 6e 75 49 74 65 6d 00 00 | 00 00 00 00 00 00 00 03 |nuItem..|........|
|00001420| 4e 65 77 00 80 80 80 80 | 10 00 00 00 00 00 07 00 |New.....|........|
|00001430| 00 88 01 08 4d 65 6e 75 | 49 74 65 6d 00 00 00 00 |....Menu|Item....|
|00001440| 00 00 00 02 00 06 4f 62 | 6a 65 63 74 09 4e 65 77 |......Ob|ject.New|
|00001450| 4f 62 6a 65 63 74 80 80 | 80 80 10 01 4e 00 00 00 |Object..|....N...|
|00001460| 00 07 00 00 88 01 08 4d | 65 6e 75 49 74 65 6d 00 |.......M|enuItem.|
|00001470| 00 00 00 00 00 00 00 02 | 00 00 80 80 80 80 10 00 |........|........|
|00001480| 00 00 00 00 07 00 00 88 | 01 08 4d 65 6e 75 49 74 |........|..MenuIt|
|00001490| 65 6d 00 00 00 00 00 00 | 00 00 02 00 00 80 80 80 |em......|........|
|000014a0| 80 10 00 00 00 00 00 07 | 00 00 88 01 08 4d 65 6e |........|.....Men|
|000014b0| 75 49 74 65 6d 00 00 00 | 00 00 00 00 00 04 41 05 |uItem...|......A.|
|000014c0| 43 6c 61 73 73 03 6f 62 | 6a a4 01 a4 01 b4 07 90 |Class.ob|j.......|
|000014d0| 06 07 00 03 6f 62 6a b4 | 01 06 43 61 6e 76 61 73 |....obj.|..Canvas|
|000014e0| 00 04 0f 64 69 66 78 20 | 61 73 20 69 6e 74 65 67 |...difx |as integ|
|000014f0| 65 72 00 0f 64 69 66 79 | 20 61 73 20 69 6e 74 65 |er..dify| as inte|
|00001500| 67 65 72 00 0f 6d 6f 64 | 65 20 61 73 20 69 6e 74 |ger..mod|e as int|
|00001510| 65 67 65 72 00 12 74 65 | 63 6f 75 6c 65 20 61 73 |eger..te|coule as|
|00001520| 20 69 6e 74 65 67 65 72 | 00 00 01 0b 44 6f 75 62 | integer|....Doub|
|00001530| 6c 65 43 6c 69 63 6b 00 | 00 05 09 4d 6f 75 73 65 |leClick.|...Mouse|
|00001540| 45 78 69 74 01 05 01 05 | 03 0f 53 75 62 20 4d 6f |Exit....|..Sub Mo|
|00001550| 75 73 65 45 78 69 74 28 | 29 05 77 64 3d 2d 31 07 |useExit(|).wd=-1.|
|00001560| 45 6e 64 20 53 75 62 07 | 4d 6f 75 73 65 55 70 07 |End Sub.|MouseUp.|
|00001570| 0a 07 0a 09 27 53 75 62 | 20 4d 6f 75 73 65 55 70 |....'Sub| MouseUp|
|00001580| 28 58 20 41 73 20 49 6e | 74 65 67 65 72 2c 20 59 |(X As In|teger, Y|
|00001590| 20 41 73 20 49 6e 74 65 | 67 65 72 29 05 77 64 3d | As Inte|ger).wd=|
|000015a0| 2d 31 11 6d 65 2e 6c 65 | 66 74 3d 6d 65 2e 6c 65 |-1.me.le|ft=me.le|
|000015b0| 66 74 2d 36 0f 6d 65 2e | 74 6f 70 3d 6d 65 2e 74 |ft-6.me.|top=me.t|
|000015c0| 6f 70 2d 36 14 6d 65 2e | 77 69 64 74 68 3d 6d 65 |op-6.me.|width=me|
|000015d0| 2e 77 69 64 74 68 2b 31 | 32 16 6d 65 2e 68 65 69 |.width+1|2.me.hei|
|000015e0| 67 68 74 3d 6d 65 2e 68 | 65 69 67 68 74 2b 31 32 |ght=me.h|eight+12|
|000015f0| 09 6d 65 2e 6d 6f 64 65 | 3d 30 0a 6d 65 2e 72 65 |.me.mode|=0.me.re|
|00001600| 66 72 65 73 68 07 45 6e | 64 20 53 75 62 09 4d 6f |fresh.En|d Sub.Mo|
|00001610| 75 73 65 44 72 61 67 14 | 06 14 06 16 29 53 75 62 |useDrag.|....)Sub|
|00001620| 20 4d 6f 75 73 65 44 72 | 61 67 28 58 20 41 73 20 | MouseDr|ag(X As |
|00001630| 49 6e 74 65 67 65 72 2c | 20 59 20 41 73 20 49 6e |Integer,| Y As In|
|00001640| 74 65 67 65 72 29 15 64 | 69 6d 20 74 78 2c 20 74 |teger).d|im tx, t|
|00001650| 79 20 61 73 20 69 6e 74 | 65 67 65 72 13 74 78 3d |y as int|eger.tx=|
|00001660| 6d 65 2e 6c 65 66 74 2b | 6d 65 2e 77 69 64 74 68 |me.left+|me.width|
|00001670| 13 74 79 3d 6d 65 2e 74 | 6f 70 2b 6d 65 2e 68 65 |.ty=me.t|op+me.he|
|00001680| 69 67 68 74 11 69 66 20 | 6d 65 2e 6d 6f 64 65 3d |ight.if |me.mode=|
|00001690| 34 20 74 68 65 6e 0c 6d | 65 2e 77 69 64 74 68 20 |4 then.m|e.width |
|000016a0| 3d 20 58 0d 6d 65 2e 68 | 65 69 67 68 74 20 3d 20 |= X.me.h|eight = |
|000016b0| 59 15 65 6c 73 65 69 66 | 20 6d 65 2e 6d 6f 64 65 |Y.elseif| me.mode|
|000016c0| 3d 31 20 74 68 65 6e 13 | 6d 65 2e 6c 65 66 74 3d |=1 then.|me.left=|
|000016d0| 47 65 74 6d 6f 75 73 65 | 58 2d 33 12 6d 65 2e 74 |Getmouse|X-3.me.t|
|000016e0| 6f 70 3d 47 65 74 6d 6f | 75 73 65 59 2d 33 15 6d |op=Getmo|useY-3.m|
|000016f0| 65 2e 68 65 69 67 68 74 | 20 3d 20 74 79 2d 6d 65 |e.height| = ty-me|
|00001700| 2e 74 6f 70 15 6d 65 2e | 77 69 64 74 68 20 3d 20 |.top.me.|width = |
|00001710| 74 78 2d 6d 65 2e 6c 65 | 66 74 15 65 6c 73 65 69 |tx-me.le|ft.elsei|
|00001720| 66 20 6d 65 2e 6d 6f 64 | 65 3d 32 20 74 68 65 6e |f me.mod|e=2 then|
|00001730| 13 6d 65 2e 6c 65 66 74 | 3d 47 65 74 6d 6f 75 73 |.me.left|=Getmous|
|00001740| 65 58 2d 33 0f 6d 65 2e | 68 65 69 67 68 74 20 3d |eX-3.me.|height =|
|00001750| 20 59 2b 33 15 6d 65 2e | 77 69 64 74 68 20 3d 20 | Y+3.me.|width = |
|00001760| 74 78 2d 6d 65 2e 6c 65 | 66 74 15 65 6c 73 65 69 |tx-me.le|ft.elsei|
|00001770| 66 20 6d 65 2e 6d 6f 64 | 65 3d 33 20 74 68 65 6e |f me.mod|e=3 then|
|00001780| 12 6d 65 2e 74 6f 70 3d | 47 65 74 6d 6f 75 73 65 |.me.top=|Getmouse|
|00001790| 59 2d 33 0e 6d 65 2e 77 | 69 64 74 68 20 3d 20 58 |Y-3.me.w|idth = X|
|000017a0| 2b 33 15 6d 65 2e 68 65 | 69 67 68 74 20 3d 20 74 |+3.me.he|ight = t|
|000017b0| 79 2d 6d 65 2e 74 6f 70 | 06 65 6e 64 20 69 66 07 |y-me.top|.end if.|
|000017c0| 45 6e 64 20 53 75 62 09 | 4d 6f 75 73 65 44 6f 77 |End Sub.|MouseDow|
|000017d0| 6e 3e 1c 3e 1c 80 01 39 | 46 75 6e 63 74 69 6f 6e |n>.>...9|Function|
|000017e0| 20 4d 6f 75 73 65 44 6f | 77 6e 28 58 20 41 73 20 | MouseDo|wn(X As |
|000017f0| 49 6e 74 65 67 65 72 2c | 20 59 20 41 73 20 49 6e |Integer,| Y As In|
|00001800| 74 65 67 65 72 29 20 41 | 73 20 42 6f 6f 6c 65 61 |teger) A|s Boolea|
|00001810| 6e 1f 64 69 6d 20 61 20 | 61 73 20 69 6e 74 65 67 |n.dim a |as integ|
|00001820| 65 72 2c 20 62 20 61 73 | 20 64 72 61 67 69 74 65 |er, b as| dragite|
|00001830| 6d 1c 69 66 20 77 64 3d | 2d 31 20 6f 72 20 77 64 |m.if wd=|-1 or wd|
|00001840| 3d 6d 65 2e 69 6e 64 65 | 78 20 74 68 65 6e 3e 69 |=me.inde|x then>i|
|00001850| 66 20 78 20 3e 20 35 20 | 61 6e 64 20 78 20 3c 20 |f x > 5 |and x < |
|00001860| 6d 65 2e 77 69 64 74 68 | 2d 35 20 61 6e 64 20 79 |me.width|-5 and y|
|00001870| 20 3e 20 35 20 61 6e 64 | 20 79 20 3c 20 6d 65 2e | > 5 and| y < me.|
|00001880| 68 65 69 67 68 74 2d 35 | 20 74 68 65 6e 08 61 3d |height-5| then.a=|
|00001890| 77 2e 73 65 6c 52 0f 77 | 2e 73 65 6c 52 3d 6d 65 |w.selR.w|.selR=me|
|000018a0| 2e 69 6e 64 65 78 0a 6d | 65 2e 72 65 66 72 65 73 |.index.m|e.refres|
|000018b0| 68 0d 69 66 20 61 3c 3e | 2d 31 20 74 68 65 6e 0e |h.if a<>|-1 then.|
|000018c0| 77 2e 63 28 61 29 2e 72 | 65 66 72 65 73 68 06 65 |w.c(a).r|efresh.e|
|000018d0| 6e 64 20 69 66 2c 69 66 | 20 74 69 63 6b 73 2d 74 |nd if,if| ticks-t|
|000018e0| 65 63 6f 75 6c 65 3e 30 | 20 61 6e 64 20 74 69 63 |ecoule>0| and tic|
|000018f0| 6b 73 2d 74 65 63 6f 75 | 6c 65 3c 32 30 20 74 68 |ks-tecou|le<20 th|
|00001900| 65 6e 0d 74 65 63 6f 75 | 6c 65 3d 74 69 63 6b 73 |en.tecou|le=ticks|
|00001910| 0b 44 6f 75 62 6c 65 43 | 6c 69 63 6b 04 65 6c 73 |.DoubleC|lick.els|
|00001920| 65 0d 74 65 63 6f 75 6c | 65 3d 74 69 63 6b 73 0b |e.tecoul|e=ticks.|
|00001930| 77 64 3d 6d 65 2e 69 6e | 64 65 78 0b 6d 65 2e 44 |wd=me.in|dex.me.D|
|00001940| 69 66 78 20 3d 20 58 0b | 6d 65 2e 44 69 66 79 20 |ifx = X.|me.Dify |
|00001950| 3d 20 59 3a 62 3d 6e 65 | 77 64 72 61 67 69 74 65 |= Y:b=ne|wdragite|
|00001960| 6d 28 6d 65 2e 6c 65 66 | 74 2b 36 2c 6d 65 2e 74 |m(me.lef|t+6,me.t|
|00001970| 6f 70 2b 36 2c 6d 65 2e | 77 69 64 74 68 2d 31 32 |op+6,me.|width-12|
|00001980| 2c 6d 65 2e 68 65 69 67 | 68 74 2d 31 32 29 26 62 |,me.heig|ht-12)&b|
|00001990| 2e 70 72 69 76 61 74 65 | 6d 61 63 64 61 74 61 28 |.private|macdata(|
|000019a0| 22 64 72 65 63 22 29 3d | 73 74 72 28 6d 65 2e 69 |"drec")=|str(me.i|
|000019b0| 6e 64 65 78 29 06 62 2e | 64 72 61 67 06 65 6e 64 |ndex).b.|drag.end|
|000019c0| 20 69 66 04 65 6c 73 65 | 17 69 66 20 77 2e 53 65 | if.else|.if w.Se|
|000019d0| 6c 52 3d 6d 65 2e 69 6e | 64 65 78 20 74 68 65 6e |lR=me.in|dex then|
|000019e0| 16 69 66 20 78 20 3c 20 | 37 20 61 6e 64 20 79 20 |.if x < |7 and y |
|000019f0| 3c 37 20 74 68 65 6e 0b | 77 64 3d 6d 65 2e 69 6e |<7 then.|wd=me.in|
|00001a00| 64 65 78 11 6d 65 2e 6c | 65 66 74 3d 6d 65 2e 6c |dex.me.l|eft=me.l|
|00001a10| 65 66 74 2b 36 0f 6d 65 | 2e 74 6f 70 3d 6d 65 2e |eft+6.me|.top=me.|
|00001a20| 74 6f 70 2b 36 14 6d 65 | 2e 77 69 64 74 68 3d 6d |top+6.me|.width=m|
|00001a30| 65 2e 77 69 64 74 68 2d | 31 32 16 6d 65 2e 68 65 |e.width-|12.me.he|
|00001a40| 69 67 68 74 3d 6d 65 2e | 68 65 69 67 68 74 2d 31 |ight=me.|height-1|
|00001a50| 32 09 6d 65 2e 6d 6f 64 | 65 3d 31 0b 72 65 74 75 |2.me.mod|e=1.retu|
|00001a60| 72 6e 20 74 72 75 65 24 | 65 6c 73 65 69 66 20 78 |rn true$|elseif x|
|00001a70| 20 3c 37 20 61 6e 64 20 | 79 20 3e 20 6d 65 2e 68 | <7 and |y > me.h|
|00001a80| 65 69 67 68 74 2d 37 20 | 74 68 65 6e 0b 77 64 3d |eight-7 |then.wd=|
|00001a90| 6d 65 2e 69 6e 64 65 78 | 11 6d 65 2e 6c 65 66 74 |me.index|.me.left|
|00001aa0| 3d 6d 65 2e 6c 65 66 74 | 2b 36 0f 6d 65 2e 74 6f |=me.left|+6.me.to|
|00001ab0| 70 3d 6d 65 2e 74 6f 70 | 2b 36 14 6d 65 2e 77 69 |p=me.top|+6.me.wi|
|00001ac0| 64 74 68 3d 6d 65 2e 77 | 69 64 74 68 2d 31 32 16 |dth=me.w|idth-12.|
|00001ad0| 6d 65 2e 68 65 69 67 68 | 74 3d 6d 65 2e 68 65 69 |me.heigh|t=me.hei|
|00001ae0| 67 68 74 2d 31 32 09 6d | 65 2e 6d 6f 64 65 3d 32 |ght-12.m|e.mode=2|
|00001af0| 0b 72 65 74 75 72 6e 20 | 74 72 75 65 24 65 6c 73 |.return |true$els|
|00001b00| 65 69 66 20 79 20 3c 20 | 37 20 61 6e 64 20 78 20 |eif y < |7 and x |
|00001b10| 3e 20 6d 65 2e 77 69 64 | 74 68 2d 37 20 74 68 65 |> me.wid|th-7 the|
|00001b20| 6e 0b 77 64 3d 6d 65 2e | 69 6e 64 65 78 11 6d 65 |n.wd=me.|index.me|
|00001b30| 2e 6c 65 66 74 3d 6d 65 | 2e 6c 65 66 74 2b 36 0f |.left=me|.left+6.|
|00001b40| 6d 65 2e 74 6f 70 3d 6d | 65 2e 74 6f 70 2b 36 14 |me.top=m|e.top+6.|
|00001b50| 6d 65 2e 77 69 64 74 68 | 3d 6d 65 2e 77 69 64 74 |me.width|=me.widt|
|00001b60| 68 2d 31 32 16 6d 65 2e | 68 65 69 67 68 74 3d 6d |h-12.me.|height=m|
|00001b70| 65 2e 68 65 69 67 68 74 | 2d 31 32 0b 6d 65 2e 6d |e.height|-12.me.m|
|00001b80| 6f 64 65 20 3d 20 33 0b | 72 65 74 75 72 6e 20 74 |ode = 3.|return t|
|00001b90| 72 75 65 2e 65 6c 73 65 | 69 66 20 79 20 3e 20 6d |rue.else|if y > m|
|00001ba0| 65 2e 68 65 69 67 68 74 | 2d 37 20 61 6e 64 20 78 |e.height|-7 and x|
|00001bb0| 20 3e 20 6d 65 2e 77 69 | 64 74 68 2d 37 20 74 68 | > me.wi|dth-7 th|
|00001bc0| 65 6e 09 6d 65 2e 6d 6f | 64 65 3d 34 11 6d 65 2e |en.me.mo|de=4.me.|
|00001bd0| 6c 65 66 74 3d 6d 65 2e | 6c 65 66 74 2b 36 0f 6d |left=me.|left+6.m|
|00001be0| 65 2e 74 6f 70 3d 6d 65 | 2e 74 6f 70 2b 36 14 6d |e.top=me|.top+6.m|
|00001bf0| 65 2e 77 69 64 74 68 3d | 6d 65 2e 77 69 64 74 68 |e.width=|me.width|
|00001c00| 2d 31 32 16 6d 65 2e 68 | 65 69 67 68 74 3d 6d 65 |-12.me.h|eight=me|
|00001c10| 2e 68 65 69 67 68 74 2d | 31 32 0b 77 64 3d 6d 65 |.height-|12.wd=me|
|00001c20| 2e 69 6e 64 65 78 0b 72 | 65 74 75 72 6e 20 74 72 |.index.r|eturn tr|
|00001c30| 75 65 04 65 6c 73 65 05 | 77 64 3d 2d 31 06 65 6e |ue.else.|wd=-1.en|
|00001c40| 64 20 69 66 06 65 6e 64 | 20 69 66 06 65 6e 64 20 |d if.end| if.end |
|00001c50| 69 66 06 65 6e 64 20 69 | 66 1c 45 78 63 65 70 74 |if.end i|f.Except|
|00001c60| 69 6f 6e 20 4e 69 6c 4f | 62 6a 65 63 74 45 78 63 |ion NilO|bjectExc|
|00001c70| 65 70 74 69 6f 6e 0c 45 | 6e 64 20 46 75 6e 63 74 |eption.E|nd Funct|
|00001c80| 69 6f 6e 05 50 61 69 6e | 74 02 25 02 25 13 18 53 |ion.Pain|t.%.%..S|
|00001c90| 75 62 20 50 61 69 6e 74 | 28 67 20 41 73 20 47 72 |ub Paint|(g As Gr|
|00001ca0| 61 70 68 69 63 73 29 12 | 69 66 20 6d 65 2e 6d 6f |aphics).|if me.mo|
|00001cb0| 64 65 3c 3e 30 20 74 68 | 65 6e 25 67 2e 64 72 61 |de<>0 th|en%g.dra|
|00001cc0| 77 72 65 63 74 20 30 2c | 30 2c 6d 65 2e 77 69 64 |wrect 0,|0,me.wid|
|00001cd0| 74 68 2d 31 2c 6d 65 2e | 68 65 69 67 68 74 2d 31 |th-1,me.|height-1|
|00001ce0| 04 65 6c 73 65 1e 67 2e | 46 6f 72 65 63 6f 6c 6f |.else.g.|Forecolo|
|00001cf0| 72 20 3d 20 72 67 62 28 | 32 35 35 2c 32 35 35 2c |r = rgb(|255,255,|
|00001d00| 32 35 35 29 27 67 2e 66 | 69 6c 6c 72 65 63 74 20 |255)'g.f|illrect |
|00001d10| 36 2c 36 2c 6d 65 2e 77 | 69 64 74 68 2d 31 33 2c |6,6,me.w|idth-13,|
|00001d20| 6d 65 2e 68 65 69 67 68 | 74 2d 31 33 18 67 2e 46 |me.heigh|t-13.g.F|
|00001d30| 6f 72 65 63 6f 6c 6f 72 | 20 3d 20 72 67 62 28 30 |orecolor| = rgb(0|
|00001d40| 2c 30 2c 30 29 27 67 2e | 64 72 61 77 72 65 63 74 |,0,0)'g.|drawrect|
|00001d50| 20 36 2c 36 2c 6d 65 2e | 77 69 64 74 68 2d 31 33 | 6,6,me.|width-13|
|00001d60| 2c 6d 65 2e 68 65 69 67 | 68 74 2d 31 33 17 69 66 |,me.heig|ht-13.if|
|00001d70| 20 77 2e 73 65 6c 52 3d | 6d 65 2e 69 6e 64 65 78 | w.selR=|me.index|
|00001d80| 20 74 68 65 6e 16 67 2e | 66 6f 72 65 63 6f 6c 6f | then.g.|forecolo|
|00001d90| 72 3d 72 67 62 28 30 2c | 30 2c 30 29 12 67 2e 46 |r=rgb(0,|0,0).g.F|
|00001da0| 69 6c 6c 52 65 63 74 20 | 30 2c 30 2c 36 2c 36 1c |illRect |0,0,6,6.|
|00001db0| 67 2e 46 69 6c 6c 52 65 | 63 74 20 30 2c 6d 65 2e |g.FillRe|ct 0,me.|
|00001dc0| 68 65 69 67 68 74 2d 36 | 2c 36 2c 36 1b 67 2e 46 |height-6|,6,6.g.F|
|00001dd0| 69 6c 6c 52 65 63 74 20 | 6d 65 2e 77 69 64 74 68 |illRect |me.width|
|00001de0| 2d 36 2c 30 2c 36 2c 36 | 25 67 2e 46 69 6c 6c 52 |-6,0,6,6|%g.FillR|
|00001df0| 65 63 74 20 6d 65 2e 77 | 69 64 74 68 2d 36 2c 6d |ect me.w|idth-6,m|
|00001e00| 65 2e 68 65 69 67 68 74 | 2d 36 2c 36 2c 36 06 65 |e.height|-6,6,6.e|
|00001e10| 6e 64 20 69 66 06 65 6e | 64 20 69 66 00 06 65 6e |nd if.en|d if..en|
|00001e20| 64 20 69 66 07 45 6e 64 | 20 53 75 62 00 00 00 05 |d if.End| Sub....|
|00001e30| 41 06 4d 6f 64 75 6c 65 | 07 47 6c 6f 62 61 6c 73 |A.Module|.Globals|
|00001e40| a4 01 a4 01 b4 07 90 06 | 07 00 07 47 6c 6f 62 61 |........|...Globa|
|00001e50| 6c 73 1c 00 00 01 0d 77 | 64 20 61 73 20 69 6e 74 |ls.....w|d as int|
|00001e60| 65 67 65 72 00 00 00 00 | 00 00 00 06 41 05 43 6c |eger....|....A.Cl|
|00001e70| 61 73 73 0c 4c 69 6e 6b | 54 6f 4d 79 50 61 67 65 |ass.Link|ToMyPage|
|00001e80| a4 01 a4 01 b7 0a 95 06 | 07 00 0c 4c 69 6e 6b 54 |........|...LinkT|
|00001e90| 6f 4d 79 50 61 67 65 ac | 01 06 43 61 6e 76 61 73 |oMyPage.|..Canvas|
|00001ea0| 00 02 11 43 61 70 74 69 | 6f 6e 20 61 73 20 73 74 |...Capti|on as st|
|00001eb0| 72 69 6e 67 00 0e 6c 69 | 6e 6b 20 61 73 20 73 74 |ring..li|nk as st|
|00001ec0| 72 69 6e 67 00 00 00 05 | 07 4d 6f 75 73 65 55 70 |ring....|.MouseUp|
|00001ed0| 03 00 03 00 06 27 53 75 | 62 20 4d 6f 75 73 65 55 |.....'Su|b MouseU|
|00001ee0| 70 28 58 20 41 73 20 49 | 6e 74 65 67 65 72 2c 20 |p(X As I|nteger, |
|00001ef0| 59 20 41 73 20 49 6e 74 | 65 67 65 72 29 33 69 66 |Y As Int|eger)3if|
|00001f00| 20 58 3e 2d 31 20 61 6e | 64 20 59 3e 2d 31 20 61 | X>-1 an|d Y>-1 a|
|00001f10| 6e 64 20 58 3c 6d 65 2e | 77 69 64 74 68 20 61 6e |nd X<me.|width an|
|00001f20| 64 20 59 3c 6d 65 2e 77 | 69 64 74 68 20 74 68 65 |d Y<me.w|idth the|
|00001f30| 6e 0a 6d 65 2e 72 65 66 | 72 65 73 68 0c 53 68 6f |n.me.ref|resh.Sho|
|00001f40| 77 55 52 4c 20 6c 69 6e | 6b 06 65 6e 64 20 69 66 |wURL lin|k.end if|
|00001f50| 07 45 6e 64 20 53 75 62 | 09 4d 6f 75 73 65 44 72 |.End Sub|.MouseDr|
|00001f60| 61 67 03 2f 03 2f 10 29 | 53 75 62 20 4d 6f 75 73 |ag././.)|Sub Mous|
|00001f70| 65 44 72 61 67 28 58 20 | 41 73 20 49 6e 74 65 67 |eDrag(X |As Integ|
|00001f80| 65 72 2c 20 59 20 41 73 | 20 49 6e 74 65 67 65 72 |er, Y As| Integer|
|00001f90| 29 20 64 69 6d 20 67 20 | 61 73 20 67 72 61 70 68 |) dim g |as graph|
|00001fa0| 69 63 73 2c 20 64 20 61 | 73 20 64 72 61 67 69 74 |ics, d a|s dragit|
|00001fb0| 65 6d 0d 67 3d 6d 65 2e | 67 72 61 70 68 69 63 73 |em.g=me.|graphics|
|00001fc0| 34 69 66 20 58 3e 2d 31 | 20 61 6e 64 20 59 3e 2d |4if X>-1| and Y>-|
|00001fd0| 31 20 61 6e 64 20 58 3c | 6d 65 2e 77 69 64 74 68 |1 and X<|me.width|
|00001fe0| 20 61 6e 64 20 59 3c 6d | 65 2e 68 65 69 67 68 74 | and Y<m|e.height|
|00001ff0| 20 74 68 65 6e 18 67 2e | 66 6f 72 65 63 6f 6c 6f | then.g.|forecolo|
|00002000| 72 3d 72 67 62 28 32 35 | 35 2c 30 2c 30 29 13 67 |r=rgb(25|5,0,0).g|
|00002010| 2e 54 65 78 74 46 6f 6e | 74 3d 22 47 65 6e 65 76 |.TextFon|t="Genev|
|00002020| 61 22 0c 67 2e 54 65 78 | 74 53 69 7a 65 3d 39 10 |a".g.Tex|tSize=9.|
|00002030| 67 2e 75 6e 64 65 72 6c | 69 6e 65 3d 74 72 75 65 |g.underl|ine=true|
|00002040| 29 67 2e 64 72 61 77 73 | 74 72 69 6e 67 20 63 61 |)g.draws|tring ca|
|00002050| 70 74 69 6f 6e 2c 30 2c | 28 67 2e 74 65 78 74 68 |ption,0,|(g.texth|
|00002060| 65 69 67 68 74 2f 32 29 | 2b 31 04 65 6c 73 65 0a |eight/2)|+1.else.|
|00002070| 6d 65 2e 72 65 66 72 65 | 73 68 30 64 3d 6e 65 77 |me.refre|sh0d=new|
|00002080| 64 72 61 67 69 74 65 6d | 28 6d 65 2e 6c 65 66 74 |dragitem|(me.left|
|00002090| 2c 6d 65 2e 74 6f 70 2c | 6d 65 2e 77 69 64 74 68 |,me.top,|me.width|
|000020a0| 2c 6d 65 2e 68 65 69 67 | 68 74 29 0b 64 2e 74 65 |,me.heig|ht).d.te|
|000020b0| 78 74 3d 6c 69 6e 6b 06 | 64 2e 64 72 61 67 06 65 |xt=link.|d.drag.e|
|000020c0| 6e 64 20 69 66 07 45 6e | 64 20 53 75 62 09 4d 6f |nd if.En|d Sub.Mo|
|000020d0| 75 73 65 44 6f 77 6e 07 | 14 07 14 0a 39 46 75 6e |useDown.|....9Fun|
|000020e0| 63 74 69 6f 6e 20 4d 6f | 75 73 65 44 6f 77 6e 28 |ction Mo|useDown(|
|000020f0| 58 20 41 73 20 49 6e 74 | 65 67 65 72 2c 20 59 20 |X As Int|eger, Y |
|00002100| 41 73 20 49 6e 74 65 67 | 65 72 29 20 41 73 20 42 |As Integ|er) As B|
|00002110| 6f 6f 6c 65 61 6e 11 64 | 69 6d 20 67 20 61 73 20 |oolean.d|im g as |
|00002120| 67 72 61 70 68 69 63 73 | 0d 67 3d 6d 65 2e 67 72 |graphics|.g=me.gr|
|00002130| 61 70 68 69 63 73 13 67 | 2e 54 65 78 74 46 6f 6e |aphics.g|.TextFon|
|00002140| 74 3d 22 47 65 6e 65 76 | 61 22 0c 67 2e 54 65 78 |t="Genev|a".g.Tex|
|00002150| 74 53 69 7a 65 3d 39 18 | 67 2e 66 6f 72 65 63 6f |tSize=9.|g.foreco|
|00002160| 6c 6f 72 3d 72 67 62 28 | 32 35 35 2c 30 2c 30 29 |lor=rgb(|255,0,0)|
|00002170| 10 67 2e 75 6e 64 65 72 | 6c 69 6e 65 3d 74 72 75 |.g.under|line=tru|
|00002180| 65 29 67 2e 64 72 61 77 | 73 74 72 69 6e 67 20 63 |e)g.draw|string c|
|00002190| 61 70 74 69 6f 6e 2c 30 | 2c 28 67 2e 74 65 78 74 |aption,0|,(g.text|
|000021a0| 68 65 69 67 68 74 2f 32 | 29 2b 31 0b 72 65 74 75 |height/2|)+1.retu|
|000021b0| 72 6e 20 74 72 75 65 0c | 45 6e 64 20 46 75 6e 63 |rn true.|End Func|
|000021c0| 74 69 6f 6e 04 4f 70 65 | 6e 07 27 07 27 0b 0a 53 |tion.Ope|n.'.'..S|
|000021d0| 75 62 20 4f 70 65 6e 28 | 29 11 64 69 6d 20 67 20 |ub Open(|).dim g |
|000021e0| 61 73 20 67 72 61 70 68 | 69 63 73 0d 67 3d 6d 65 |as graph|ics.g=me|
|000021f0| 2e 67 72 61 70 68 69 63 | 73 13 67 2e 54 65 78 74 |.graphic|s.g.Text|
|00002200| 46 6f 6e 74 3d 22 47 65 | 6e 65 76 61 22 0c 67 2e |Font="Ge|neva".g.|
|00002210| 54 65 78 74 53 69 7a 65 | 3d 39 13 6d 65 2e 6d 6f |TextSize|=9.me.mo|
|00002220| 75 73 65 63 75 72 73 6f | 72 3d 68 61 6e 64 1f 6d |usecurso|r=hand.m|
|00002230| 65 2e 63 61 70 74 69 6f | 6e 3d 22 56 69 73 69 74 |e.captio|n="Visit|
|00002240| 20 6d 79 20 77 65 62 20 | 73 69 74 65 21 22 27 6d | my web |site!"'m|
|00002250| 65 2e 6c 69 6e 6b 3d 22 | 68 74 74 70 3a 2f 2f 6c |e.link="|http://l|
|00002260| 6f 75 69 73 78 69 76 2e | 68 79 70 65 72 6d 61 72 |ouisxiv.|hypermar|
|00002270| 74 2e 63 6f 6d 2f 22 6d | 65 2e 77 69 64 74 68 3d |t.com/"m|e.width=|
|00002280| 67 2e 73 74 72 69 6e 67 | 77 69 64 74 68 28 6d 65 |g.string|width(me|
|00002290| 2e 63 61 70 74 69 6f 6e | 29 16 6d 65 2e 68 65 69 |.caption|).me.hei|
|000022a0| 67 68 74 3d 67 2e 74 65 | 78 74 68 65 69 67 68 74 |ght=g.te|xtheight|
|000022b0| 07 45 6e 64 20 53 75 62 | 05 50 61 69 6e 74 05 29 |.End Sub|.Paint.)|
|000022c0| 05 29 07 18 53 75 62 20 | 50 61 69 6e 74 28 67 20 |.)..Sub |Paint(g |
|000022d0| 41 73 20 47 72 61 70 68 | 69 63 73 29 13 67 2e 54 |As Graph|ics).g.T|
|000022e0| 65 78 74 46 6f 6e 74 3d | 22 47 65 6e 65 76 61 22 |extFont=|"Geneva"|
|000022f0| 0c 67 2e 54 65 78 74 53 | 69 7a 65 3d 39 18 67 2e |.g.TextS|ize=9.g.|
|00002300| 66 6f 72 65 63 6f 6c 6f | 72 3d 72 67 62 28 30 2c |forecolo|r=rgb(0,|
|00002310| 30 2c 32 35 35 29 10 67 | 2e 75 6e 64 65 72 6c 69 |0,255).g|.underli|
|00002320| 6e 65 3d 74 72 75 65 29 | 67 2e 64 72 61 77 73 74 |ne=true)|g.drawst|
|00002330| 72 69 6e 67 20 63 61 70 | 74 69 6f 6e 2c 30 2c 28 |ring cap|tion,0,(|
|00002340| 67 2e 74 65 78 74 68 65 | 69 67 68 74 2f 32 29 2b |g.texthe|ight/2)+|
|00002350| 31 07 45 6e 64 20 53 75 | 62 00 00 00 07 41 04 56 |1.End Su|b....A.V|
|00002360| 69 65 77 08 41 62 6f 75 | 74 42 6f 78 04 ae 01 a4 |iew.Abou|tBox....|
|00002370| 01 12 04 4e 61 6d 65 08 | 41 62 6f 75 74 42 6f 78 |...Name.|AboutBox|
|00002380| 05 46 72 61 6d 65 01 30 | 0c 48 61 73 42 61 63 6b |.Frame.0|.HasBack|
|00002390| 43 6f 6c 6f 72 05 46 61 | 6c 73 65 09 42 61 63 6b |Color.Fa|lse.Back|
|000023a0| 43 6f 6c 6f 72 08 31 36 | 37 37 37 32 31 35 08 42 |Color.16|777215.B|
|000023b0| 61 63 6b 64 72 6f 70 01 | 30 05 54 69 74 6c 65 06 |ackdrop.|0.Title.|
|000023c0| 41 62 6f 75 74 c9 07 56 | 69 73 69 62 6c 65 04 54 |About..V|isible.T|
|000023d0| 72 75 65 08 43 6c 6f 73 | 65 42 6f 78 04 54 72 75 |rue.Clos|eBox.Tru|
|000023e0| 65 08 47 72 6f 77 49 63 | 6f 6e 04 54 72 75 65 08 |e.GrowIc|on.True.|
|000023f0| 5a 6f 6f 6d 49 63 6f 6e | 04 54 72 75 65 0b 42 61 |ZoomIcon|.True.Ba|
|00002400| 6c 6c 6f 6f 6e 48 65 6c | 70 00 09 50 6c 61 63 65 |lloonHel|p..Place|
|00002410| 6d 65 6e 74 01 30 05 57 | 69 64 74 68 03 33 31 30 |ment.0.W|idth.310|
|00002420| 06 48 65 69 67 68 74 03 | 32 33 36 08 4d 69 6e 57 |.Height.|236.MinW|
|00002430| 69 64 74 68 02 36 34 09 | 4d 69 6e 48 65 69 67 68 |idth.64.|MinHeigh|
|00002440| 74 02 36 34 08 4d 61 78 | 57 69 64 74 68 05 33 32 |t.64.Max|Width.32|
|00002450| 30 30 30 09 4d 61 78 48 | 65 69 67 68 74 05 33 32 |000.MaxH|eight.32|
|00002460| 30 30 30 07 00 08 41 62 | 6f 75 74 42 6f 78 ac 01 |000...Ab|outBox..|
|00002470| 06 44 69 61 6c 6f 67 00 | 00 00 00 00 00 00 02 07 |.Dialog.|........|
|00002480| 00 00 ac 01 0c 4c 69 6e | 6b 54 6f 4d 79 50 61 67 |.....Lin|kToMyPag|
|00002490| 65 00 00 00 00 00 00 00 | 07 00 00 88 02 09 45 64 |e.......|......Ed|
|000024a0| 69 74 46 69 65 6c 64 00 | 00 00 00 00 00 00 02 06 |itField.|........|
|000024b0| 43 61 6e 76 61 73 10 04 | 4e 61 6d 65 07 43 61 6e |Canvas..|Name.Can|
|000024c0| 76 61 73 31 05 49 6e 64 | 65 78 0b 2d 32 31 34 37 |vas1.Ind|ex.-2147|
|000024d0| 34 38 33 36 34 38 0d 54 | 61 62 50 61 6e 65 6c 49 |483648.T|abPanelI|
|000024e0| 6e 64 65 78 01 30 07 56 | 69 73 69 62 6c 65 04 54 |ndex.0.V|isible.T|
|000024f0| 72 75 65 04 4c 65 66 74 | 02 31 33 03 54 6f 70 03 |rue.Left|.13.Top.|
|00002500| 32 31 39 05 57 69 64 74 | 68 03 31 30 30 06 48 65 |219.Widt|h.100.He|
|00002510| 69 67 68 74 02 31 32 0b | 42 61 6c 6c 6f 6f 6e 48 |ight.12.|BalloonH|
|00002520| 65 6c 70 00 13 44 69 73 | 61 62 6c 65 64 42 61 6c |elp..Dis|abledBal|
|00002530| 6c 6f 6f 6e 48 65 6c 70 | 00 08 4c 6f 63 6b 4c 65 |loonHelp|..LockLe|
|00002540| 66 74 04 54 72 75 65 07 | 4c 6f 63 6b 54 6f 70 05 |ft.True.|LockTop.|
|00002550| 46 61 6c 73 65 09 4c 6f | 63 6b 52 69 67 68 74 05 |False.Lo|ckRight.|
|00002560| 46 61 6c 73 65 0a 4c 6f | 63 6b 42 6f 74 74 6f 6d |False.Lo|ckBottom|
|00002570| 04 54 72 75 65 08 42 61 | 63 6b 64 72 6f 70 01 30 |.True.Ba|ckdrop.0|
|00002580| 07 45 6e 61 62 6c 65 64 | 04 54 72 75 65 00 09 45 |.Enabled|.True..E|
|00002590| 64 69 74 46 69 65 6c 64 | 20 04 4e 61 6d 65 0a 45 |ditField| .Name.E|
|000025a0| 64 69 74 46 69 65 6c 64 | 31 05 49 6e 64 65 78 0b |ditField|1.Index.|
|000025b0| 2d 32 31 34 37 34 38 33 | 36 34 38 0d 54 61 62 50 |-2147483|648.TabP|
|000025c0| 61 6e 65 6c 49 6e 64 65 | 78 01 30 07 56 69 73 69 |anelInde|x.0.Visi|
|000025d0| 62 6c 65 04 54 72 75 65 | 04 4c 65 66 74 02 31 33 |ble.True|.Left.13|
|000025e0| 03 54 6f 70 02 31 33 05 | 57 69 64 74 68 03 32 38 |.Top.13.|Width.28|
|000025f0| 34 06 48 65 69 67 68 74 | 03 31 39 39 0b 42 61 6c |4.Height|.199.Bal|
|00002600| 6c 6f 6f 6e 48 65 6c 70 | 00 13 44 69 73 61 62 6c |loonHelp|..Disabl|
|00002610| 65 64 42 61 6c 6c 6f 6f | 6e 48 65 6c 70 00 08 4c |edBalloo|nHelp..L|
|00002620| 6f 63 6b 4c 65 66 74 04 | 54 72 75 65 07 4c 6f 63 |ockLeft.|True.Loc|
|00002630| 6b 54 6f 70 04 54 72 75 | 65 09 4c 6f 63 6b 52 69 |kTop.Tru|e.LockRi|
|00002640| 67 68 74 04 54 72 75 65 | 0a 4c 6f 63 6b 42 6f 74 |ght.True|.LockBot|
|00002650| 74 6f 6d 04 54 72 75 65 | 08 54 65 78 74 46 6f 6e |tom.True|.TextFon|
|00002660| 74 05 54 69 6d 65 73 08 | 54 65 78 74 53 69 7a 65 |t.Times.|TextSize|
|00002670| 02 31 32 04 42 6f 6c 64 | 05 46 61 6c 73 65 06 49 |.12.Bold|.False.I|
|00002680| 74 61 6c 69 63 05 46 61 | 6c 73 65 09 55 6e 64 65 |talic.Fa|lse.Unde|
|00002690| 72 6c 69 6e 65 05 46 61 | 6c 73 65 06 42 6f 72 64 |rline.Fa|lse.Bord|
|000026a0| 65 72 04 54 72 75 65 09 | 4d 75 6c 74 69 4c 69 6e |er.True.|MultiLin|
|000026b0| 65 04 54 72 75 65 09 53 | 63 72 6f 6c 6c 42 61 72 |e.True.S|crollBar|
|000026c0| 04 54 72 75 65 06 53 74 | 79 6c 65 64 05 46 61 6c |.True.St|yled.Fal|
|000026d0| 73 65 08 50 61 73 73 77 | 6f 72 64 05 46 61 6c 73 |se.Passw|ord.Fals|
|000026e0| 65 0c 55 73 65 46 6f 63 | 75 73 52 69 6e 67 04 54 |e.UseFoc|usRing.T|
|000026f0| 72 75 65 08 52 65 61 64 | 4f 6e 6c 79 04 54 72 75 |rue.Read|Only.Tru|
|00002700| 65 09 4c 69 6d 69 74 54 | 65 78 74 01 30 0a 41 63 |e.LimitT|ext.0.Ac|
|00002710| 63 65 70 74 54 61 62 73 | 05 46 61 6c 73 65 09 54 |ceptTabs|.False.T|
|00002720| 65 78 74 43 6f 6c 6f 72 | 01 30 09 42 61 63 6b 43 |extColor|.0.BackC|
|00002730| 6f 6c 6f 72 08 31 36 37 | 37 37 32 31 35 07 45 6e |olor.167|77215.En|
|00002740| 61 62 6c 65 64 04 54 72 | 75 65 04 54 65 78 74 94 |abled.Tr|ue.Text.|
|00002750| 07 48 65 72 65 20 69 73 | 20 44 72 61 67 20 26 20 |.Here is| Drag & |
|00002760| 72 65 73 69 7a 65 20 72 | 65 63 74 73 2c 20 61 6e |resize r|ects, an|
|00002770| 20 65 78 61 6d 70 6c 65 | 20 6f 66 20 64 72 61 67 | example| of drag|
|00002780| 61 62 6c 65 20 61 6e 64 | 20 72 65 73 69 7a 61 62 |able and| resizab|
|00002790| 6c 65 20 72 65 63 74 73 | 2e 20 49 74 20 69 73 20 |le rects|. It is |
|000027a0| 61 20 76 69 73 69 74 2d | 6d 79 2d 77 65 62 2d 70 |a visit-|my-web-p|
|000027b0| 61 67 65 2d 6f 2d 77 61 | 72 65 2c 20 77 68 69 63 |age-o-wa|re, whic|
|000027c0| 68 20 6f 62 76 69 6f 75 | 73 6c 79 20 6d 65 61 6e |h obviou|sly mean|
|000027d0| 73 20 74 68 61 74 20 79 | 6f 75 20 6d 75 73 74 20 |s that y|ou must |
|000027e0| 76 69 73 69 74 20 6d 79 | 20 77 65 62 20 70 61 67 |visit my| web pag|
|000027f0| 65 20 74 6f 20 75 73 65 | 20 69 74 2e 20 57 68 65 |e to use| it. Whe|
|00002800| 6e 20 79 6f 75 27 76 65 | 20 64 6f 6e 65 20 74 68 |n you've| done th|
|00002810| 61 74 2c 20 79 6f 75 20 | 63 61 6e 20 64 6f 20 77 |at, you |can do w|
|00002820| 68 61 74 20 79 6f 75 20 | 77 61 6e 74 20 74 6f 20 |hat you |want to |
|00002830| 69 74 2c 20 62 75 74 20 | 69 66 20 79 6f 75 20 77 |it, but |if you w|
|00002840| 61 6e 74 20 74 6f 20 70 | 75 74 20 69 74 20 69 6e |ant to p|ut it in|
|00002850| 20 61 20 63 6f 6d 6d 65 | 72 63 69 61 6c 20 61 70 | a comme|rcial ap|
|00002860| 70 6c 69 63 61 74 69 6f | 6e 20 6f 72 20 64 69 73 |plicatio|n or dis|
|00002870| 74 72 69 62 75 74 65 20 | 61 20 6d 6f 64 69 66 69 |tribute |a modifi|
|00002880| 65 64 20 76 65 72 73 69 | 6f 6e 20 6f 66 20 74 68 |ed versi|on of th|
|00002890| 69 73 20 65 78 61 6d 70 | 6c 65 2c 20 79 6f 75 20 |is examp|le, you |
|000028a0| 6d 75 73 74 20 73 65 6e | 64 20 69 74 20 74 6f 20 |must sen|d it to |
|000028b0| 6d 65 20 62 65 66 6f 72 | 65 20 64 69 73 74 72 69 |me befor|e distri|
|000028c0| 62 75 74 69 6e 67 20 69 | 74 2e 0d 48 6f 70 65 20 |buting i|t..Hope |
|000028d0| 79 6f 75 27 6c 6c 20 6c | 69 6b 65 20 74 68 69 73 |you'll l|ike this|
|000028e0| 20 3a 2d 29 0d 0d 4c 6f | 75 69 73 20 43 68 61 72 | :-)..Lo|uis Char|
|000028f0| 74 72 61 6e 64 0d 4c 6f | 75 69 73 58 49 56 40 69 |trand.Lo|uisXIV@i|
|00002900| 73 74 61 72 2e 63 61 0d | 68 74 74 70 3a 2f 2f 6c |star.ca.|http://l|
|00002910| 6f 75 69 73 78 69 76 2e | 68 79 70 65 72 6d 61 72 |ouisxiv.|hypermar|
|00002920| 74 2e 6e 65 74 01 00 08 | 41 06 43 75 72 73 6f 72 |t.net...|A.Cursor|
|00002930| 04 48 61 6e 64 01 03 00 | 04 80 04 80 04 80 04 80 |.Hand...|........|
|00002940| 04 80 64 f8 94 ac 4c aa | 24 0a 24 02 10 02 08 02 |..d...L.|$.$.....|
|00002950| 08 04 04 04 04 04 03 00 | 07 80 07 80 07 80 07 80 |........|........|
|00002960| 07 80 67 f8 f7 fc 7f fe | 3f fe 3f fe 1f fe 0f fe |..g.....|?.?.....|
|00002970| 0f fc 07 fc 07 fc 00 00 | 00 06                   |........|..      |
+--------+-------------------------+-------------------------+--------+--------+